home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 95 / pascal / copyrite.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-01-15  |  881 b   |  32 lines
  1. Program Copyrite;
  2.  
  3. { Displays the name of your program, Copyright information and waits
  4.   for a keypress.                                                    }
  5.  
  6.   CONST
  7.     {$I gemconst.pas }
  8.  
  9.   TYPE
  10.     {$I gemtype.pas }
  11.  
  12.   VAR
  13.     Choice        :       integer;        { For 'point-and-click' }
  14.     Alert_Box     :       string[255];         { For building Alert Box text }
  15.  
  16.  
  17.   {$I gemsubs.pas }
  18.  
  19.   BEGIN
  20.     If Init_Gem >= 0 then
  21.       BEGIN
  22.         Alert_Box := CONCAT( '[0][' ,
  23.                              'Copyright 1986 by David Meile|',
  24.                              'Portions of this product are |',
  25.                              'Copyright 1986, OSS and CCD. |',
  26.                              ' Used by Permission of OSS.]',
  27.                              '[ OK ]' );
  28.         Choice := Do_Alert( Alert_Box, 1 );
  29.         Exit_Gem;
  30.      END;
  31. END.
  32.